home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Webster's Millennium Amer…Sign Language Dictionary
/
ASL.ISO
/
mac
/
SHARED.cst
/
00005_Script_alpha and categories
< prev
next >
Wrap
Text File
|
2001-09-17
|
1KB
|
35 lines
--∂ï
on setAlpha letter
global gWordList
global alphaLocsE
global scrollList,scrollListE
global maxScroll,minScroll
global scrollTop,scrollBottom
global gAlphaBet
if voidP(gWordList) or gWordList = EMPTY then ----PETEMACK 06.21.01
ENGLISH ----PETEMACK 06.21.01
-- set gWordList = getStringToList(gWordList) ----PETEMACK 06.21.01
end if
if letter = 0 then
set minscroll = 1
set maxscroll = count(gWordList)
else
--if "XYZ" contains letter or "wxyz" contains letter then
if "Z" = letter or "z" = letter then
set minScroll = integer(getAt(AlphaLocsE,getPos(gAlphabet,"Z")))
set maxScroll = count(gWordList)
else
set minscroll=integer(getAt(AlphaLocsE,getPos(gAlphabet,letter)))
set maxscroll=getAt(AlphaLocsE,getPos(gAlphabet,letter)+1)-1
repeat with i = minscroll to maxscroll
nothing ----PETEMACK 06.21.01 (this was blank)
end repeat
end if
end if
set scrollTop=integer(minScroll)
set scrollBottom = integer(scrollTop)+8
end setalpha